﻿Public Class PedidoDetallePickeador
    Dim _PEDCOD, _PDDCOD, _PICKCOD As String
    Dim _PDPCAN As Decimal
    Dim _PPCOD As Integer

    Sub New()

    End Sub

    Sub New(ByVal pedcod As String, ByVal pddcod As String, ByVal pickcod As String)
        Me._PEDCOD = pedcod
        Me._PDDCOD = pddcod
        Me._PICKCOD = pickcod
    End Sub

    Sub New(ByVal pedcod As String, ByVal pddcod As String, ByVal ppCod As Integer, ByVal pickcod As String, _
            ByVal pdpcant As Decimal)
        Me._PEDCOD = pedcod
        Me._PDDCOD = pddcod
        Me._PPCOD = ppCod
        Me._PICKCOD = pickcod
        Me._PDPCAN = pdpcant
    End Sub

    Sub New(ByVal pedcod As String, ByVal pddcod As String, ByVal pickcod As String, _
            ByVal pdpcant As Decimal)
        Me._PEDCOD = pedcod
        Me._PDDCOD = pddcod
        Me._PICKCOD = pickcod
        Me._PDPCAN = pdpcant
    End Sub

    Public Property PED_Codigo() As String
        Get
            Return _PEDCOD
        End Get
        Set(ByVal value As String)
            _PEDCOD = value
        End Set
    End Property

    Public Property PDD_Codigo() As String
        Get
            Return _PDDCOD
        End Get
        Set(ByVal value As String)
            _PDDCOD = value
        End Set
    End Property

    Public Property PICK_Codigo() As String
        Get
            Return _PICKCOD
        End Get
        Set(ByVal value As String)
            _PICKCOD = value
        End Set
    End Property

    Public Property PDP_Cantidad() As Decimal
        Get
            Return _PDPCAN
        End Get
        Set(ByVal value As Decimal)
            _PDPCAN = value
        End Set
    End Property

    Public Property PP_Codigo() As Integer
        Get
            Return _PPCOD
        End Get
        Set(ByVal value As Integer)
            _PPCOD = value
        End Set
    End Property
End Class
